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rnrrpJf-is  vo1ume  provides  computer  programmers  with  an  overview  of  the 
EDITSPEC  computer  system.  The  system  structure  is  presented  in  Chapter  1. 
Basic  system  execution  programs  are  described  In  Chapter  2.  Chapter  3 
describes  the  backup  and  restoration  procedures,  while  Chapter  4  contains  the 
data  conversion  procedure. 


t 


Accession  For 

zz: 

1}Txi  ORA  Jil 

If 

DT1C  XA1 

□ 

Unannounced 

□ 

Justification — 

_ 

Distribution/ 
Availability  Coda*, 
ilvall  and/or 
Piet*  Special 


1 


11 


FOREWORD 


This  Investigation  was  performed  for  the  Directorate  of  Military  Con¬ 
struction,  Office  of  the  Chief  of  Engineers  (OCE),  under  Project  4A762731AT41, 
"Design,  Construction,  and  Operation  and  Maintenance  Technology  for  Military 
Facilities";  Task  Tl,  “Development  of  Automated  Procedures  for  Military  Con¬ 
struction";  Work  Unit  009,  "Computer-Based  Specifications."  The  applicable  QCR 
is  1.10.001.  The  OCE  Technical  Monitor  was  William  Darnell. 

The  computer  programs  were  written  by  Edgar  Neely,  Hans  Wegener,  Jayant 
Krishnaswany,  Anthony  Wei,  Shahid  Siddlqi,  Charles  Wan,  Arthur  Davida,  and 
several  Multi-Systems,  Inc.,  Cambridge,  MA,  staff  members. 

The  study  was  performed  by  the  Computer  Aided  Engineering  and  Architec¬ 
tural  Design  System  Team  (Ms.  Janet  Spoonamore,  Chief),  Facility  Systems  Divi¬ 
sion  (Mr.  E.  A.  Lotz,  Chief),  U.S.  Army  Construction  Engineering  Research 
Laboratory  (CERL). 

COL  L.  J.  Clrceo,  Jr.,  Is  Commander  and  Director  of  CERL,  and  Dr.  L.  R. 
Shaffer  Is  Technical  Director. 
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1  STRUCTURE 


The  reader  should  have  a  thorough  understanding  of  the  EDITSPEC  User's 
Manual  before  reading  this  volume. 

The  EDITSPEC  computer  system  is  designed  to  operate  as  basic  subsystems 
(Figure  1),  which  have  been  designed  to  be  as  machine- independent  as  possible 
and  yet  minimize  the  life-cycle  cost  of  the  system.  The  subsystems  have  been 
developed  to  operate  under  the  standard  compilers  supported  by  all  medium¬ 
sized  computer  systems. 

A  machine-independent  scientific  and  engineering  data  handler  has  been 
developed  to  manipulate  machine-dependent  direct  access  storage  and  to  provide 
application  programs  with  machine-independent  calling  sequences.  This  subsys¬ 
tem  will  minimize  program  conversion  problems  when  a  new  computer  must  be 
applied.  The  data  handler,  which  Is  described  in  Volume  IV,  allows  applica¬ 
tion  programs  to  work  with  files  or  tables. 

A  machine-independent  table  handler  has  been  implemented  to  allow  appli¬ 
cation  programs  to  access  tables  efficiently.  The  table  handler  and  the 
tables  used  within  the  EDITSPEC  system  are  defined  in  Volume  III.  The  table 
handler  programs  apply  the  data  handler  application  programs.  The  EDITSPEC 
computer  programs  apply  both  the  data  and  the  table  handler  application  pro¬ 
grams. 

The  EDITSPEC  programs  are  logically  divided  into  three  structural  groups 
as  shown  In  Figure  2.  The  BASIC  SYSTEM  EXECUTION  programs  perform  the  normal 
day-to-day* functions  required  to  support  the  user;  the  SYSTEM  BACKUP  and  RES¬ 
TORATION  programs  perform  periodic  backups  for  portions  of  the  system  and  pro¬ 
vide  data  base  restoration  functions  when  the  DATA  CONVERSION  programs  provide 
functional  assistance  in  converting  the  data  base  from  one  computer  to 
another.  The  following  chapters  discuss  each  of  the  three  divisions. 
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2  BASIC  SYSTEM  EXECUTION  PROGRAMS 


The  BASIC  SYSTEM  programs  are  logically  divided  into  the  following  four 
segments  as  shown  in  Figure  3. 


Root  Segment 

The  ROOT  segment  contains  all  programs  of  a  general  nature  that  are  used 
to  initialize  the  system  and  to  process  all  commands,  as  well  as  programs  used 
frequently  by  all  segments.  It  can  be  logically  separated  into  five  program 
groups  as  shown  in  Figure  4.  The  SYSTEM  CONTROL  PROGRAM,  called  EDTSP,  con¬ 
trols  the  flow  of  processing.  The  four  high-level  SYSTEM  INITIALIZATION  PRO¬ 
GRAMS  are:  SINIT,  DKNIT,  EINIT,  and  LOGOP.  There  is  one  high-level  COMMAND 
ANALYSIS  PROGRAM,  called  CMMND,  and  one  high-level  SYSTEM  CLEANUP  PROGRAM, 
called  DKXIT.  The  BASIC  APPLICATION  PROGRAMS  are  listed  In  Table  1  and  sub¬ 
routine  CMMND. 


System  Segment 

The  SYSTEM  segment,  which  contains  all  programs  required  to  process  sys¬ 
tem  commands,  can  be  logically  separated  into  four  program  groups  as  shown  in 
Figure  5  and  described  in  the  user's  manual.  All  high-level  systems  programs 
are  called  from  the  CMMND  program. 


Edit  Segment 

The  EDIT  segment,  which  contains  all  programs  required  to  process  the 
normal  document  editing  functions,  can  be  logically  separated  into  seven  pro 
gram  groups  as  shown  in  Figure  6  and  described  in  the  user’s  manual.  All 
high-level  programs  are  called  from  the  CMMD  program. 


Print  Segment 

The  PRINT  segment,  which  contains  all  programs  required  to  process  the 
Internal  commands  and  to  produce  a  final  document,  can  be  logically  separated 
into  five  program  groups  as  snown  in  Figure  7.  The  internal  command  programs 
are  described  in  the  user's  manual.  The  two  high-level  programs  for  this  seg¬ 
ment  are  PRINT  as  In  log  and  PPRO.  The  high-level  programs  for  print  initial¬ 
ization  are  PRINT!  and  PAGEIN,  and  the  high-level  programs  for  text  retrieval 
are  GTLIN  and  SCOPY.  PAGES  controls  the  page  layout  and  PGHDR  controls  the 
page  printing. 
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3  SYSTEM  BACKUP  AND  RESTORATION  PROGRAMS 
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Introduction 

The  EDITSPEC  system  provides  functions  that  permit  the  recreation  of  any 
document,  system  table,  and/or  dataset  to  the  state  immediately  before  the 
.data  was  inadvertently  destroyed. 

The  EDITSPEC  system  provides  three  different  backups  for  each  system 
table  and  document.  The  time  interval  between  backups  will  be  called  a 
period.  EDITSPEC  saves  the  last  three  backup  periods.  The  documents  can  be 
recreated  from  any  one  of  the  three  backups.  This  provides  a  triple  backup 
system  to  hopefully  provide  a  fail-safe  system.  Three  logical  functions  must 
be  performed: 

1.  Saving  all  correctly  executed  commands,  except  for  list  and  print 
commands,  executed  since  the  last  backup  was  made. 

2.  Periodically  saving  the  data  on  a  backup  device. 

3.  Restoration  of  the  data  after  a  functional  fatal  error. 

Fach  of  the  three  functions  are  discussed  in  the  remaining  sections  of 
this  chapter. 


Saving  All  Correctly  Executed  Commands 

The  EDITSPEC  system  has  been  designed  to  function  correctly  with  and 
without  the  backup  system.  The  logical  variable  BAKUP  located  in  /SYSTEM/ 
common  is  set  to  BAKUP  is  set  to  .TRUE,  if  the  backup  system  is  to  be  applied. 
The  .BACK,  coranand  in  the  users  manual  should  be  referenced  for  a  detailed 
description  of  backup  files. 


Dataset  Naming  Conventions 

Each  dataset  is  known  to  EDITSPEC  by  a  one  to  six-character  alphanumeric 

name. 

All  the  backup  datasets  are  prefixed  with  Bl,  as  opposed  to  primary 
datasets  which  are  prefixed  with  Al. 

The  predefined  job  control  language,  if  applied,  must  contain  the  Al  and 
Bl  datasets. 

Al  datasets  contain  current  data  Itself,  and  Bl  datasets  contain  list  of 
all  correctly  executed  commands  since  the  last  system  backup  was  done. 
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Normal  Command  Backup  Procedures 


After  the  processing  of  each  command,  the  routine  CMMND  checks  the  vari¬ 
able  CMOOK  in  /PARSC/  common  to  determine  if  the  command  worked  properly  and 
changed  the  data  base  in  any  manner.  If  the  determination  was  positive  rou¬ 
tine,  BKSAV  is  called  to  save  the  command  in  the  correct  backup  files. 


Backing  Up  System  Conmands 

Each  system  command  Is  stored  In  a  backup  file  related  to  the  data  file 
being  modified.  Three  data  files:  USER,  DIRECTORY,  and  ACCOUNTS  are  Inter¬ 
dependent  and  are  backed  up  only  In  the  USER  file.  All  other  commands  relate 
to  only  one  file. 

The  EDITSPEC  system  provides  duplicate  backup  facilities  for  the  entire 
system  dataset.  All  commands  changing  any  system  file  are  also  stored  in  a 
system  dataset  backup  file. 


Backing  Up  Document  Commands 

There  are  two  categories  of  backup  commands  for  each  document.  The  first 
category  consists  of  all  commands  that  successfully  modified  the  document  data 
during  the  normal  editing  of  the  document  by  the  user.  The  second  category 
consists  of  all  commands  that  have  been  issued  to  reference  this  document  by 
other  documents  (i.e.,  a  copy  no-move  command  issued  by  a  project  document  to 
a  guide  document). 

When  the  document  is  created,  the  creator  of  the  document  can  decide  to 
backup  all  successfully  executed  commands  that  will  be  issued  during  future 
edits. 

The  creator  has  no  control  over  the  saving  of  the  reference  commands. 
These  commands  are  automatically  saved  by  the  system  to  protect  the  other 
documents  and  ensure  system  integrity. 

The  EDITSPEC  system  provides  duplicate  backup  facilities  for  the  entire 
document  dataset.  All  commands  changing  any  document  on  the  dataset  are  also 
stored  in  a  document  dataset  backup  file. 


Periodic  Data  Backup 

The  EDITSPEC  system  will  periodically  backup  the  datasets  (on  files)  to 
permit  restoration  when  data  is  destroyed.  The  system  datasets  will  be  backed 
up  twice  dally.  Datasets  containing  documents  will  be  backed  up  dally  If 
edited  and  requested  by  the  creator  of  the  documents. 

After  the  periodic  backup  Is  performed,  all  correctly  executed  commands 
that  have  been  saved  on  the  permanent  disk  are  destroyed. 
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Data  Restoration 


System  tables  and  datasets  will  always  be  restored  to  the  last  correct 
command  before  the  data  destruction. 

Document  tables  and  datasets  will  be  restored  to  the  last  backup  per¬ 
formed  and  then  extended  to  the  last  correct  command  If  the  user  has  saved  the 
commands. 

The  EDITSPEC  system  saves  the  last  one  to  three  days  of  editing  as  backup 
for  each  document  and  system  file.  When  a  new  day  of  editing  Is  performed, 
the  previous  third  day  of  editing  on  the  backup  Is  destroyed,  the  previous 
second  from  the  last  day  becomes  the  new  third  day,  the  previous  first  day 
becomes  the  new  second  day,  and  the  latest  day  becomes  the  new  first  day. 


4  SYSTEM  DATA  CONVERSION  PROGRAMS 


When  the  EDITSPEC  system  Is  moved  from  one  computer  system  to  another, 
programs  and  data  must  be  transferred  efficiently.  The  system  data  conversion 
programs  described  In  Appendix  C  and  the  conversion  manual  and  shown  In  Figure 
8  perform  two  logical  functions:  (1)  the  data  output  programs  produce  mag¬ 
netic  tapes  from  the  current  data  base,  and  (2)  the  data  Input  programs  pro¬ 
duce  a  new  direct  access  data  base  from  the  tapes. 


FIGURE  I  EOITSPEC  SUBSYSTEMS 


SYSTEM 

SEGMENT 


FIGURE  5  SYSTEM  SEGMENT  STRUCTURE 


APPENDIX  A:  EDITSPEC  FUNCTIONS  AND  SUBROUTINES 


6  /  Subroutine 

7  Humber  Name  Function 


AAFTR  ADOS  TE*f  AT  THE  END  OF  A  TEXT  LINE,  EITHER  BY  MEANS 
OF  A  TEXT  STRING  GIVEN  IN  THE  COMMAND  AND/OR  BY 
SPECIFYING  A  LINE  NUMBER  WHOSE  TEXT  IS  TO  BE  AOOED 
AT  THE  END  OF  THE  SAID  LINE.  WHEN  BOTH  A  STRING 
AND  A  LINE  NUMBER  ARE  GIVEN  THEN  THE  STRING  IS  FIRST 
ADDED  TO  THE  END  THEN  THE  LINE  AFTER  THAT. 

THE  ADDED  LINE  IS  THEN  DELETED  FROM  ITS  ORIGINAL 
PUCE.  y 

ABEFR  ADDS  TEXT  AT  THE  BEGINNING  Qlt A  TEXT  LINE  BY 

MEANS  OF  EITHER  A  TEST  STRING  OR  ANOTHER  LINE  IN  THE 
TEXT  TABLE  OR  BOTH.  WHEN  BOTH  ARE  GIVEN  FIRST  THE 
TEXT  STRING  IS  ADDED  AT  THE  BEGINNING  OF  THE  SAID  LINE 
THEN  THE  OTHER  LINE.  THE  ADDED  LINE  IS  THEN  ERASED 
FROM  ITS  ORIGINAL  PLACE. 
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ACCESS  TO  ADD  OR  REMOVE  USER  ACCESS  TO  DOCUMENTS  OR  ACCOUNTS 


32  /  4. 

34  /  5. 

35  / 

37  /  6. 


ACC  IN  INTERPRET  THE  INPUT  STREAM  FOR  THE  ACCES  AND  RACCE  COMMANDS. 

ACC  NT  TO  ADD,  CHANGE,  OR  DEI1TE  ACCOUNT  NUMBERS  WHEN  AN 

'AN'  COMMAND  IS  INPUT. 

AN2AI  TO  CONVERT  FROM  (AN)  FORMAT  TO  (Al)  FORMAT;  (N=NCU). 


39  /  7.  ASLEEP 


41 

/  8. 

ASSEM 

THIS  PROGRAM  ASSEMBLES  PARAMETERS  FOR  SUBROUTINES  LOCAT, 

42 

/ 

CHANG,  ERASE, BLOCK, UNBLOCK, INDEX  FROM  A  STRING  PASSED 

43 

/ 

TO  IT. 

45 

/  9. 

AUDIT 

SETS  THE  AUDIT  TRAIL  SWITCH  TO  'ON'. 

47 

/10. 

AUDUP 

TO  UPDATE  THE  AUDIT  TRAIL  ACCORDING  TO  PASSED  TYPE 

49 

/II. 

BADCM 

TO  PRINT  AN  ERROR  MESSAGE  IN  EVENT  OF  ILLEGAL  COMMAND. 

<s> 

/12. 

BKSAV 

SAVE  COMMAND  ON  BpjiUP  DATASET. 

53 

/1 3. 

BUNK 

THIS  SUBROUTINE  CALCULATES  NUMBERS  OF  LEADING  AND  TRAILING 

5  / 


18 


10 

/ 

Subroutine 

11 

Number 

Name 

Functi on 

54 

/ 

BUNKS  IN  CHARACTER  STRING  USTR.  ONE  CHARACTER  PER  MORO, 

55 

/ 

AND  STORES  THEM  IN  LBLNK  AND  LSBLN  RESPECTIVELY.  NBYTE  IS 

56 

/ 

THE  NUMBER  OF  CHARACTERS  IN  USTR 

58 

/14. 

BLINC 

PAO  A  WORD  WITH  INTERNAL  BUNK  CHARACTERS 

60 

/15. 

BLNKP 

BLANK  PAD  A  WORD 

62 

/16. 

BLOCK 

PROCESS  COMMAND  .BL,  I.E.,  INSERT  *B*  AND  *BE*  TO 

63 

/ 

A  LIST  OF  LINE  NUMBER  PAIRS. 

65 

/17. 

BPAGN 

THIS  SUBROUTINE  TAKES  CARE  OF  COMMAND  BN.  IT  CHECKS 

66 

/ 

IF  THE  FORMAT  IS  ALREADY  IN  COMMON  AREA  (INPAGE).  IF  NOT 

67 

/ 

THE  INITIALIZED  FORMAT  WILL  BE  READ  FROM  DISK.  THEN 

68 

/ 

THE  SUBROUTINE  INTFM  IS  CALLED  TO  RESET  THE  PAGE 

69 

/ 

NUMBER. 

71 

/18. 

BPARN 

THIS  SUBROUTINE  TAKES  CARE  OF  EDIT  COMMAND  BP.  IT 

72 

/ 

CHECKS  IF  THE  FORMAT  IS  ALREADY  IN  COMMON  AREA 

73 

/ 

( INPNFC) .  IF  NOT,  THE  INITIALIZED  FORMAT  WILL  BE 

74 

/ 

READ  FROM  DISK.  THEN  THE  SUBROUTINE  INTFM  IS  CALLED 

75 

/ 

TO  RESET  THE  PARAGRAPH  NUMBER. 

77 

/19. 

BREAK 

PROCESS  THE  .BC  COMMAND  IN  EDI TSPEC 

79 

/20. 

CA01N 

INTERPRET  THE  INPUT  STRING  FOR  ACCOUNT  OR  SUPER  COMMAND. 

81 

/21. 

CANCE 

TO  REMOVE  UP  TO  TWENTY  USERS  FROM  THE  EDITSPEC  SYSTEM. 

83 

/22. 

CD  I  NT 

85 

/23. 

CFILL 

PUT  FORMAT  SPACE  FILLER  INTO  LINES  ARRAY 

87 

/24. 

CHANG 

89  /25 


CHIFT 


SHIFT  CHARACTERS  TO  EITHER  THE  LEFT  OR  THE  RIGHT  OR 


10  /  Subroutine 

11  Number  Name 


Function 


90 

7 

92 

/26. 

CLOCK 

94 

/27. 

CMMNO 

96 

/28. 

COMO 

98 

/29. 

CONV 

99 

7 

100 

7 

101 

7 

103 

/30. 

C0NV1 

104 

/ 

106 

/31. 

C0NV2 

107 

7 

109 

/32. 

COPIN 

111 

/33. 

COPY 

113 

/34. 

COPYF 

114 

/ 

115 

/ 

116 

/ 

118 

/35. 

COPYR 

120 

/36. 

COPYT 

122 

737. 

CPROC 

124 

/38. 

CPROH 

125 

7 

126 

/ 

128 

739. 

CT 

TO  PAD  WITH  A  SPECIFIED  CHARACTER 

THIS  RETURNS  A  MEASURE  OF  CPU-TIME  FOR  THE  CURRENT  TASK. 

TO  INTERPRET  COMMANOS  AND  CALL  THE  APPROPRIATE  SUBROUTINES 

TO  COPY  OR  MOVE  TEXT  FROM  ONE  LOCATION  TO  ANOTHER 

CONVERTS  A  STRING  OF  MACHINE  INTERNALLY  REPRESENTED 
CHARACTERS  INTO  THE  EDITSPEC  REPRESENTATION  (USING 
’  ‘  AS  THE  INDICATOR  THAT  THE  NEXT  CHARACTER  IS  A 
CAPITAL.) 

CONVERTS  A  STRING  OF  MACHINE  INTERNALLY  REPRESENTED 
CHARACTERS  INTO  THE  EDITSPEC  REPRESENTATION 

CONVERTS  A  STRING  OF  MACHINE  INTERNALLY  REPRESENTED 
CHARACTERS  INTO  THE  EDITSPEC  REPRESENTATION 

TO  DETERMINE  THE  INPUT  VALUES  FOR  COPY  ANO  MOVf  COMMANOS. 

TO  COPY  OR  MOVE  TEXT  FROM  ONE  LOCATION  TO  ABO?*®.?; 

THIS  ROUTINE  SYNTAX  CHECKS  THE  .CF  COMMAND  AND  IF  SYNTAX  OK 
IT  COPIES  OVER  FROM  THE  OTHER  DOC  INTO  THE  CURRENT  DOC 
THE  SPECIFIED  FLAGS  (OR  IN  A  COMMON  VARIATION  ALL  THE 
FLAGS)  - 


TO  REMOVE  A  *C0  OR  *CT  - 

MAIN  DRIVER  FOR  .CT  -  COPY  TABLE  ^COMMAND 


THIS  ROUTINE  CHECKS  THE  SYNTAX  OF  NESTED  INTERNAL 
COMMANDS  STORED  IN  COMMAND  BUFFER (CMBUF)  AND  PROCESSES 
THEM  IF  THEY  ARE  SYNTACTICALLY  CORRECT. 

MAIN  DRIVER  FOR  *CT  -  COPY  TABLE  FUNCTION 


5  7 


20 


10 

/ 

Subroutine 

11 

dumber 

Name  Function 

130 

/40. 

DC  DEC 

132 

/41. 

DCHEK 

TO  CHECK  OUT  EXTERNAL-REFERENCE  TABLE  FOR  .DELE. 

134 

• 

CM 

’-■s. 

DEAUO 

THIS  SUBROUTINE  DELETES  OLD  CYCLES  IN  AUDIT  TRAIL  TABLE 

135 

/ 

BEGINNING  WITH  ICYCL 

137 

/43. 

DEB 

139 

/44. 

OEBOG 

TO  CHANGE  THE  DEBUG  PARAMETER. 

141 

/45. 

DECOO 

INTERPRET  A  COMMAND  AND  CALL  THE  PROPER  SUBROUTINE 

143 

/46. 

OEL 

THIS  SUBROUTINE  ‘DELETES'  ALL  CURRENT  LINES  BETWEEN  TWO 

144 

/ 

GIVEN  LINES,  I.E.  SETS  ON  THE  SIGN  BIT  AND  CHANGES 

145 

/ 

THE  CYCLE  NUMBER.  ALSO  IT  WRITES  ON  THE  DISK  A 

146 

/ 

RECORD  WITH  NUMBERS  OF  THESE  LINES. 

148 

/47. 

DELCO 

ISO 

/48. 

OELET 

TO  DELETE  A  DOCUMENT. 

152— /49. 


--OfNn 


154  /50 


OOUST 


10 

11 

/ 

Number 

Subroutine 

Name 

156 

/51. 

DLCOP 

158 

/52. 

DLLIN 

160 

/53. 

ORTER 

162 

• 

in 

'N- 

DRTIN 

164 

/55. 

EOAUT 

165 

/ 

167 

/56. 

EDIT 

169 

/S7. 

EDTSPC 

171 

/58. 

ED2MC 

172 

/ 

174 

/59. 

EINIT 

176 

/59. 

EN 

177 

/ 

178 

/ 

179 

/ 

180 

/ 

182 

/60. 

ENTER 

183 

/ 

184 

/ 

185 

/ 

186 

/ 

187 

/ 

189 

/61. 

ERASE 

190 

/ 

191 

/ 

192 

/ 

193 

/ 

195 

/62. 

EXECS 

197 

/63. 

EXECT 

198 

/ 

Function 


TO  DELETE  LIKE  CONTAINING  *CO  OR  *CT. 

TO  DELETE  A  LINE  FROM  THE  TEXT -TABLE. 

ERASE  AN  ENTRY  FROM  DRT-TABLE. 

TO  ENTER  A  BACK-REFERENCE  INTO  DRT-TABLE. 

THIS  SUBROUTINE  RESTORED  THE  TEXT,  LINE  NUMBER  TABLE, 
AUDIT  TRAIL  TABLE  AS  THEY  WERE  BEFORE  CYCLE  ICYCL. 

TO  SET  UP  A  DOCUMENT  FOR  EDITING  COMMANDS. 

MAIN  PROGRAM.  CALLS  VARIOUS  ROUTINES. 

TO  CONVERT  A  STRING  FROM  EDITSPEC  FORMAT  TO  MACHINE 
(Al)  FORMAT. 

EDITSPEC  INITIALIZATION. 

THIS  ROUTINE  ENTERS  ONE  LINE  OF  TEXT  INTO  AN  EXISTING 
DOCUMENT  IF  LNST=0  THEN  IT  INSERTS  THE  LINE  AT  THE 
END  OF  THE  DOCUMENT.  IF  LNST  0  THEN  IT  INSERTS  AT 
THE  GIVEN  LINE  NUMBER  OR  IT  TELLS  THE  USER  THAT  A 
LINE  WITH  THAT  NUMBER  ALREADY  EXISTS 

ENTERS  ONE  LINE  OF  TEXT  INTO  A  DOCUMENT  BY  FIRST: 
CHECKING  THAT  THE  CORRECT  PARAMETERS  WERE  PASSED  BY 
THE  USER.  THESE  PARAMETERS  ARE: THE  LINE  NUMBER,  TEXT 
SEGMENT  ID  AND  THE  TEXT  LINE  ITSELF. 

SECOND:  WEJALL  THE  EN  SUBROUTINE  WHICH  ACTUALLY  LOADS 
THE  LI Nf' 

THIS  SUBROUTINE  'ERASES'  THE  CHARACTER  STRING  (CHS)  FROM 
VARIOUS  SECTIONS  OF  THE  TEXT,  WHICH  ARE  DEFINED 
EITHER  BY  MEANS  OF  TEXT  SEGMENTS  OR  BY  NUMBERS 
OF  STARTING  AND  ENDING  LINES.  IT  ALSO  STORES  THE 
NUMBERS  OF  LINES  WHICH  ARE  ERASED. 

TO  EXECUTE  COMMANDS  FROM  A  DOCUMENT  (IN  SYSTEM  MODE). 

TO  EXECUTE  COMMANDS  FROM  CURRENT  DOCUMENT  (IN  EDIT 
MODE). 


/ 


S 


zz 


10 

/ 

Subrouti  ne 

11 

Number 

Name 

Function 

200 

/64. 

EX2IN 

CONVERTS  ONE  CHARACTER  AT  A  TIME  FROM  MACHINE  INTERNAL 

201 

/ 

CODE  TO  EDITSPEC  INTERNAL  CODE 

203 

/65. 

FCNT 

TO  PICK  UP  ANY  NUMERIC  PART  OF  THE  JUSTIFICATION 

204 

/ 

OR  *SL  COMMANDS  -  ALSO  LOCATE  END  OF  STRING 

206 

/66. 

FDAC 

TO  FIND  DOCUMENT  ACCESS  CODE. 

208 

/67. 

FDIT 

TO  SET  UP  A  SECONDARY  EDIT  DOCUMENT. 

210 

/68. 

FDSBK 

TO  GET  DATASET  NUMBER  FROM  DATASET  NAME  (BACKUP  -  NOT  MAIN)  • 

J/?Cvfcl/P 

212 

/69. 

FOSMN 

TO  GET  DATA  SET  NUMBER  FROM  DATASET  NAME  (MAIN  -  NOT  +HW1T) 

214 

/70. 

FLAG 

THIS  ROUTINE  PROCESSES  THE  .FL  CMD  AND  IF  THE  SYNTAX  IS 

215 

/ 

CORRECT,  ENTERS  THE  GIVEN  FLAG  ID  AND  THE  CHOICE  AND 

216 

/ 

DESCRIPTION  CHARACTER  STRINGS  IN  THE  FLAG  TABLE 

218 

/71. 

FLGCH 

-THIS  fcoo-riNC,  ,Fc.  Cd*/***T> 

mb-  /?a. . '-risee 


222  /73.  FNOLN  TO  FIND  THE  RECID  OF  A  LINE  NUMBER  IN  A  DOCUMENT. 

224  /74.  FOOT 


226  /75.  FORM 


5  / 


23 


10  /  Subroutine 

11  dumber  Maine  Function 

228  /76.  FSTOR  TO  TERMINATE  ACCESS  TO  A  SECONDARY  DOCUMENT.  . 

230  /77.  GENE 


232  778.  GETRC 


234  /79.  GTCMD  TO  GET  A  SINGLE  COMMAND  STRING  AT  A  TIME. 

236  780.  GTLIN 


238  781.  HEAD 


240  782.  HDFTF 


242  783.  ICOPB 


244  /84.  IOCK  TO  CHECK  FOR  THE  EXISTENCE  OF  A  12-CHARACTER  ID  IN  A  TABLE. 

246  785.  IDGET  THIS  SUBROUTINE  FINDS  THE  LOGICAL  RECORD  ID  FOR  THE  GIVEN 


5  7 
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10  /  Subroutine 

11  (lumber  Name  Function 

247  /  LINE.  FROM  THE  LINE  NUMBER  TABLE  (LNT).  IT  SETS  IDSTM) 

248  /  IF  THERE  IS  NO  SXH  LINE  IN  LNT. 

250  /86.  IDINP  TO  INTERPRET  THE  INPUT  STRING  FOR  THE  USER  AND  CANCEL  COMMANDS. 

252  /88.  IMASK 


254  /87.  INCRL 


256  /88.  INDEX  ADOS  A  '  *IX  INDEX  ID;'  BEFORE  A  SPECIFIED  STRING  IN 

257  /  THE  TEXT  IN  ALL  AREAS  SPECIFIED.  IT  ALSO  ADDS  A  ’*  1 

258  /  THE  STRING.  THE  AREAS  ARE  GIVEN  AS  LINE  NUMBERS, 

259  /  PAIRS  OF  LINE  NUMBERS  OR  TEXT  SEGMENT  ID’S. 

260  /  OURING  THE  PRINT  ROUTINE  .THE  PAGE  NUMBERS  THAT 

261  /  INCLUDE  THE  STRING  WILL  BE  ADDED  TO  THE  INDEX 

262  /  TABLE  NUM8ER  ’INDEX  ID’, INDEX  ID  IS  A  1  DIGIT  INTEGER 

263  /  BETWEEN  1-9.  THE  DEFAULT  VALUE  FOR  INDEX  ID  IS  1. 

265  /89.  INITL 


267  /90. 

268  / 

269  / 

270  / 

271  / 

272  / 

273  / 

274  / 

275  / 

276  / 

277  / 


INPUT  THIS  SUBROUTINE  IS  CALLED  BY  EDIT.  IT  READS  DATA  AND 

SEPARATES  TEXT  AND  COMMANDS.  FOR  THAT  IT  CALLS  SUBROUTINE 
CONY,  WHICH  RECOGNIZES  COMMAND’S  STRINGS.  INPUT  STORES 
TEXT  IN  TEXTFILE,  COMMANDS  IN  COMMAND  TABLE.  EACH  COMMAND 
FORMS  ONE  RECORD  IN  THIS  TABLE.  THE  LAST  CHARACTER  IN  EACH 
COMMAND  IS  A  PERIOD.  A  COMMAND  IS  STORED  IN  PACKED  FORM 
WITHOUT  TRAILING  BLANKS.  TEXT  LINES  ARE  STORED  WITH  TWO 
TRAILING  BLANKS  AFTER  A  PERIOD,  ONE  TRAILING  BLANK  AFTER 
ANY  OTHER  CHARACTER.  TEXT  IS  STORED  IN  PACKED  FORM.  ONE 
OTHER  RESTRICTION  APPLIES  -  A  PERIOO  CANNOT  BE  IN  THE  FIRST 
COLUMN  SINCE  A  PERIOO  IN  THE  FIRST  COLUMN  OF  THE  TEXT 
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10  /  Subroutine 

11  Humber  Name 


Function 


278  > 

279  / 

280  / 
281  / 
282  / 

283  / 

284  / 

285  / 

286  / 

287  / 

288  / 
289.  / 
290  / 


0 

0 


292  /91. 

293  / 

294  / 

295  / 

296  / 

297  / 

298  / 

299  / 

300  / 

301  / 


INSRT 


INDICATES  A  COMMAND  LINE.  ALL  COMMAND  LINES  ARE  EXPECTED 
TO  LEAVE  A  PERIOD  IN  THE  FIRST  COLUMN,  INCLUDING  CONTIN¬ 
UATION  COMMAND  LINES. 

INPUT  GENERATES  A  LINE  NUMBER  FOR  EACH  LINE  OF  THE  TEXT. 

THIS  LINE  NUMBER  IS  STORED  AS  THE  FIRST  WORD  IN  EACH  TEXT 
LINE  RECORD.  THE  LINE  NUMBER  AND  CORRESPONDING  RECORD  ID 
ARE  STORED  IN  THE  LINE  NUMBER  TABLE.  INPUT  ALSO  GENERATES 
A  LINE  NUMBER  FOR  EACH  COMMAND  AND  STORES  THESE  LINE  NUMBERS 
AND  CORRESPONDING  RECORD  IDS  IN  THE  COMMAND  LINE  NUMBER 
TA8LE. 


INPUT  USES  TABLE  NAMES  (IN  COMMON)  AS  INFORMATION  WHICH  HAS 
8EEN  ESTABLISHED  BEFORE.  T> 

THE  ONLY  DATA  INPUT  REQUIRMrIS  THE  TABLE  NAMES  IN  COMMON. 


INSERTS  A  GIVEN  TEXT  STRING  IN  SPECIFIED  AREAS 
OF  THE  TEXT  AFTER  A  CERTAIN  GIVEN  STRINGftF  THE 
STRING  AFTER  WHICH  THE  NEW  STRING  IS  TO  at  CONCATENATED 
IS  NOT  GIVEN  THEN  THE  INSERTION  STRING  IS  ADDED 
AT  THE  END  OF  EACH  SPECIFIED  ARE/CTHE  AREA  CAN  BE 
SPECIFIED  BY  THE  USER  AS  A  GROUP 'DF  LINE  NUMBERS, 

LINE  NUMBER  PAIRS  OR  TEXT  SEGMENT  ID‘S  OR  ALL  THREE 
TOGETHER.  IF  THE  AREA  IS  NOT  GIVEN  .THE  INSERTION 
STRING  IS  ADDED  AT  THE  END  OF  THE  LAST  LINE  OF  THE 
DOCUMENT. 


303  /92.  INTER  THIS  ROUTINE  COPIES  A  NUMERIC  STRING  FROM  (STRNG)  AND 

304  /  PLACES  IT  INTO  THE  (DIGIT)  ARRAY.  THE  (DIGIT)  ARRAY  IS 

305  /  THEN  CONVERTED  INTO  A  NUMBER. 


307  /93.  INTFM  THIS  SUBROUTINE  INITIALIZES  A  PAGE  OR  PARAGRAPH 

308  /  NUMBERING  FORMAT  ACCORDING  TO  THE  COMMAND  IN  STRNG 

309  /  (SEE  COMMON  /PARSC/.)  THE  COMMAND  MAY  BE  .BN,  *BN, 

310  /  .BP  OR  *BP. 

312  /94.  INTGR  THIS  ROUTINE  FORMS  THE  ACTUAL  NUMBER  FOR  THE  STRING 

313  /  TRANSLATES  THE  EDITSPEC  INTERNAL  REPRESENTATION  OF 

314  /  NUMERICAL  CHARACTERS  INTO  THE  MACHINE  INTERNAL 

315  /  REPRESENTATION  OF  THE  ACTUAL  NUMERICAL  VALUE  BEING 

316  /  REPRESENTED. 


318  /95.  INUS4  TO  INSERT  A  TYPE  4  RECORD  INTO  THE  USER  TABLE. 

319  /  (TYPE  4  RECORD  IS  MESSAGES  TO  USER). 

320  /  SENDER  OF  MESSAGE  IS  LOGGED-ON-USER. 
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10 

/ 

Subroutine 

11 

Number 

Name 

Function 

Q2P/ 

RECID  (FIRST  ARGUMENT)  IS  ENTRY  IN  USR -TABLE  * 

322  / 

OF  RECEIVERS  TYPE  1  DATA  RECORD.  A 

324  /96. 

IN2EX 

326 

/97. 

JCOPY 

328 

/98. 

JIND 

330 

/99. 

JLNFL 

TO  BUILO  UP  THE  PRINT  LINE  IMAGE  FOR  A  TABLE  ROW 

332 

ZOO. 

JNEXT 

TO  RETURN  A  SEQUENTIAL  LIST  FROM  AN  ABBREVIATED  LIST 

334 

101. 

JNUM 

TEST  CHARACTER  STREAM  AND  RETURN  NUMBER  VALUE 

336 

702. 

KLOCT 

TEST  LINES  FOR  THE  PRESENCE  OF  ANY  UNDERLINES 

338 

J03. 

LALPH 

340 

704. 

URAB 

342  Z05.  LAUDG 
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Function 


10 

/ 

Subroutine 

11 

Number 

Name 

344 

ro6. 

UUDO 

346 

1 07. 

UUOT 

346 

rus. 

L8ICD 

349 

/ 

3S1 

109. 

LCHAR 

352 

/ 

353 

/ 

354 

/ 

356 

110. 

LCHECK 

358 

Ill. 

LCONT 

360 

112. 

LDHAR 

361 

/ 

362 

/ 

363 

/ 

364 

/ 

365 

/ 

366 

/ 

367 

/ 

368 

/ 

/ 

/ 

373 

113. 

LDOCU 

TO  LIST  THE  AUDIT  TRAIL  TABLE  -  TEXT. 

TO  SCAN  STRING  AND  BREAK  IT  INTO  SEGMENTS  OF  LENGTH 
SGLEN  TERMINATIONS  WITH  THE  LAST  BUNK 

THIS  PROGRAM  IS  USED  BY  SUBROUTINE  ASSEM  WHEN  A 
LOCATION  OF  THE  REPLACEMENT  STRING  IS  GIVEN  BY  THE 
LAST  THREE  OR  MORE  CHARACTERS  AND  THE  NUMBER  OF  THE 
FIRST  LINE 


THIS  PROGRAM  IS  CALLED  BY  ASSEM  ROUTINE.  IT  IS  CALLED 
WHENEVER  THE  STRING  TO  BE  HANDLED  IS  GIVEN  IN  EITHER 
OF  THE  FOLLOWING  THREE  FORMS: 

(ALPHA)**( ALPHA): IN  THIS  CASE  THE  WHOLE  STRING 
IS  COPIED  INTO  STRNG  BEFORE  RETURNING. 

ITST  IS  SET  TO  0  INDICATING  THIS  CASE  TO  SEARC. 

**( ALPHA):  ITST  IS  SET  TO  1  INDICATING  THIS  SITUATION 
TO  SEARC  . 

(ALPHA)**:  ITST  IS  SET  TO  2. 

ICNT  WILL  BE  SET  TO  THE  INDEX  INTO  ISLN  WHERE  THE 
FIRST  OGOUnANGfr OF  THE  STRING  WAS  FOUND. 

Coe. urmsKas 
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10  /  Subroutine 

11  Humber  Name  Function 

375  114.  LERCD  LIST  EXTERNAL  REFERENCE  (COPY  TEXT)  TABLE. 

377  |15.  LERCT 


379  116.  LERLC 


381  117.  LERSN 


383  118.  LFHAR 


385  119.  LFLAG 


387  120.  LIACO 


389  121.  LICHR 


5  / 
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10  /  Subroutine 

11  Humber  Name  Function 

391  222.  LICUS 

393  223.  LIDIR 

395  224.  LIDOC 

397  225.  LIOTA 

399  226.  LIFOT 

401  227.  LIHAD 

403  223.  LIMIT 

405  229.  LINDE 


5  / 


10 

/ 

Subroutine 

11 

Number 

Name  Function 

407 

130. 

L1NN0 

• 

409 

131. 

LIPARA 

411 

132. 

LIPGF 

THIS  SUBROUTINE  LISTS 

THE 

PAGE  NUMBERING  FORMAT  TABLE. 

413 

133. 

LIPNF 

THIS  SUBROUTINE  LISTS 

THE 

PARAGRAPH  NUMBERING  FORMAT 

414 

/ 

TABLE. 

416 

134. 

LIPRJ 

418 

135. 

LIST 

THIS  SUBROUTINE  TAKES  CARE  OF  THE  SYSTEM  COMMAND  .LIST. 

419 

/ 

THIS  SYSTEM  COMMAND  ALLOWS  THE  CERTIFIED  USER  TO  LIST 

420 

/ 

INFORMATION  LOCATED 

IN  THE  SYSTEM  TABLES. 

421 

/ 

THIS  SUBROUTINE  WILL 

TRANSFER  CONTROL  TO  AN  APPROPRIATE 

422 

/ 

SUBROUTINE  ACCORDING  TO  THE  PARAMETER  SPECIFIED  IN  THE 

423 

/ 

COMMAND: 

42S 

/ 

PARAMETER 

SUBROUTINE  NAME 

428 

/ 

ACCO 

LIACO 

429 

/ 

CHAR 

LICHR 

430 

/ 

CUSR 

LICUS 

431 

/ 

DATA 

LIDTA 

432 

/ 

OIRE 

LI  DIF 

433 

/ 

DOCU 

LIDOC 

434 

/ 

FOOT 

LIFOT 

435 

/ 

HEAD 

LIHAD 

436 

/ 

PARF 

LIPAR 

437 

/ 

PGFM 

LIPGF 

438 

/ 

PNFM 

LIPNF 

5  / 
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10  /  Subroutine 

11  dumber  Name  Function 


LIPRJ 
LITBL 
LIUSR 

444  236.  LITBL 


439  / 

440  / 

441  / 


PROJ 

TABL 

USER 


446  237.  LIUSR 


448  238.  LIOGI 


450  239.  LNCLN  TO  CHECK  THE  EXTERNAL  BLANK  CHARACTERS  BETWEEN 

451  /  CHARACTER  STRINGS  TO  INSURE  THAT  THE  PROPER  SPACING 

452  /  IS  PRINTED. 

454  240.  LNINC 


456  241.  LNCIM 


458  242.  LNXFR 


5  / 


3? 


10 

11 

/ 

Number 

Subroutine 

Name 

460 

JT43. 

LOCAC 

461 

/ 

462 

/ 

463 

/ 

464 

/ 

466 

744. 

LOCAH 

467 

/ 

468 

/ 

469 

/ 

470 

/ 

,  '472^45. 

LOCAT 

-473 

/ 

474 

/ 

475 

/ 

476 

/ 

477 

/ 

478 

_429_ 

/ 

J 

1 ! 

/ 

482- 

484 

/ 

485 

/ 

486 

/ 

488 

746. 

LOGMS 

490 

747. 

OGOF 

492 

748. 

LOGON 

493 

/ 

494 

/ 

495-7 

^496 

/ 

498 

749. 

LOGOP 

500 

750. 

LPULL 

Function 


THIS  ROUTINE  ACCEPTS  INTERNAL  STRING  (INSTR)  AND 
UNPACKS  THEN  TO  ECI  INTERNAL  FORM  STARTING  FROM 
LOCATION  LSTRT.  IT  ALSO  PARSES  THE  NESTED  INTERNAL 
COMMANDS  AND  PUTS  THEM  INTO  COMMAND  BUFFER  (CMBIF)  AND 
STACK  FOR  LATER  PROCESSING. 

THIS  ROUTINE  ACCEPTS  INTERNAL  STRING  (INSTR)  AND 
UNPACKS  THEM  TO  ECI  INTERNAL  FORM  STARTING  FROM 
LOCATION  LSTRT.  IT  ALSO  PARSES  THE  NESTED  INTERNAL 
COMMANDS  AND  PUTS  THEM  INTO  COMMAND  BUFFER  (CMBUF)  AND 
STACK  FOR  LATER  PROCESSING. 

THIS  SUBROUTINE  SEARCHES  THE  OCCURENCES  OF  THE  CHAR 
STRING  (CHS)  WHICH  IS  PLACED  IN  ARRAY  TSID.  FOUR  CHARACTERS 
PER  WORD.  IN  THE  ENDING  LINES  OR  BY  THE  TEXT  SEGMENTS  ID.  ARRAY 
ISLN  CONSISTS  OF  THE  STARTING  LINES  NUMBERS,  ARRAY  IELN  -  ENDING 
LINES  NUMBERS,  ARRAY  TSID  -  TEXT  SEGMENTS  ID. 

NLIFO  IS  THE  COMMON  DIMENSION  OF  ISLN  AND  IELN,  NTEFO  IS 
THE  DIMENSION  OF  TSID,  NCHAR  IS  A  NUMBER  OF  CHARACTER  IN  CHS. 

THE  OUTPUT  OF  THIS  SUBROUTINE  ARE  TVO  ARRAYS,  WHICH  WILL  BE 
PRINTED  ANO  WILL  INDICATE  ALL  OCCURpJCES  OF  the  CHS  BY  LISTING 
THE  STARTING  LINE  NUMBER.  THE  NUMBER  OF  THE  FIRST  CHARACTER  OF 
CHS  IN  THE  STARTING  LINE,  THE  LAST  LINE  NUMBER,  THE  NUMBER, OF 
THE  LAST  CHARACTER  OF  CHS  IN  THE  LAST  LINE  FOR  EACH  OCCUfftNCE. 

LIST  OF  VARIABLES  A 

ISLN  -  ARRAY,  CONSISTING  OF  THE  STARTING  LINES  NUMBERS  FOR  THE 
TEXT  LOCATIONS 

TO  WRITE  OUT  MESSAGE  FROM  THE  ARRAY  DR4USR. 

LOGS  A  USER  OFF  EDITSPEC  SYSTEM 

LOGS  A  USER  ONTO  THE  EDITSPEC  SYSTEM. 

IF  THIS  IS  THE  FIRST  USER  EVER,  CREATE  SYSTEM  TABLES,  AND 
ENTER  USER-ID  AND  ACCOUNT -NUMBER  INTO  USR-TABLE,  ACS-TABLE 
IF  USR-TABLE  ENTRY  EXISTS,  PRINT  OUT  ANY  MESSAGES  IN  IT. 

IN  ANY  CASE,  SET  LOGGO  =  10  OF  ENTRY  IN  USR-TABLE. 

TO  PRINT  EDITSPEC  HEADING  e. 
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10  /  Subroutine 

11  dumber  Name  Function 

502  r51.  LROMA 


504  152.  LSACC  PRINT  THE  ACCOUNTS  TABLE 

506  153.  LSAUO 


508  154.  LSCAN 

510  Jf55.  LSCOM  LIST  THE  COMMAND  TABLE 

512  156.  LSOOC  PRINT  THE  SYSTEM  DOCUMENT  DIRECTORY 

514  157.  LSLEU 


516  158.  LSLGC  PRINT  THE  LOGIC  CONDITIONS  TABLE 

517  159.  LSCIN 


519  160.  LSPNF 


521  161.  LSSAP  PRINT  THE  SUPERVISORS  TABLE 

523  162.  LSSEG 

525  163.  LSTBL  THIS  ROUTINE  CALLS  THE  DOCUMENT  TABLE  LISTING 
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10 

/ 

Subroutine 

11 

Number 

Name 

Functl on 

526 

/ 

ROUTINES.  THERE  ARE  15  SUCH  ROUTINES  EACH  RESPONSIBLE 

527 

/ 

TO  LIST  ONE  DOCUMENT  TABLE. 

528 

/ 

TRANSFER  OF  CONTROL  IS  DONE  BY  CHECKING  THE  TABLE 

529 

/ 

NAME  GIVEN  BY  THE  USER. 

531 

764. 

LSTXT 

PRINT  THE  TEXT  TABLE 

533 

765. 

LSUSR 

TO  LIST  ALL  INFORMATION  IN  THE  SYSTEM  USER  TABLE. 

535 

766. 

LTEX 

TO  LIST  THE  TEXT  TA8LE  WITH  UPPER  CASE  LETTERS 

536 

/ 

REPRESENTED  AS  THE  CENT  SIGN  AND  THE  LOWER  CASE 

537 

/ 

LETTER. 

539 

767. 

LTYPD 

541  too.  mill 


543 

769. 

MARGN 

545 

770. 

MATCH 

TO  DEFINE  I SUB  (COMMAND  CODE). 

(&> 

771. 

MCMP 

549 

550 

772. 

/ 

MCZEO 

TO  CONVERT  A  STRING  IN  MACHINE  FORMAT  (Al)  TO  EOITSPEC 
FORMAT. 

552 

173. 

MERGE 
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10 

11 

/ 

dumber 

Subroutine 

Name 

Function 

554 

555 

774. 

/ 

MESS 

THIS  SUBROUTINE  TAKES  CARE  OF  THE  COMMAND  .MESS.  IT 
CHECKS  THE  RECEIVER  ID  LIST  AND  SEND  MESSAGE  TO  THEM 

557 

775. 

MONI 

559 

776. 

MOVE 

TO  MOVE  TEXT  FROM  ON  LOCATION  TO  ANOTHER. 

561 

562 

777. 

/ 

NAM  IN 

TO  INTERPRET  THE  INPUT  STREAM  FOR  COMMANDS  REQUIRING 
JUST  ONE  FIELD,  OF  12  CHARACTERS. 

564 

778. 

NCMP 

To  2. 

566  779.  NEW  TO  CREATE  A  NEW  DOCUMENT. 

568  780.  NFLDS 


NLXT 

573 

782. 

NOFOR 

575 

783. 

N02IC 

577 

578 

734. 

/ 

NWDSF 

580 

581 

582 

583 

785. 

/ 

/ 

/ 

PACK 

585 

VO 

00 

PARAG 

TO  LOCATE  THE  FIRST  OCCURENCE  OF  CHARACTER  'CHAR' 

AFTER  CHARACTER  ’Ll'  IN  “UNPACKED  ARRAY  'CHART' 

THIS  SUBROUTINE  TAKES  CARE  OF  THE  SYSTEM  COMMAND  . PGNF . 

7b  c&*oe,aT  Q/m+A./  /v»  as. /2  7b  c>/4(t^cri  a 

-sCtwourwr  wowgf  itoisr  .chars  ;-nchar  ) 

RETURN  THE  NUMBER  CF  FULL  WORDS  REQUIRED  TO 
HOLD  'N'  CHARACTERS 

PACK  NUM  CHARACTERS  INTO  THE  STRING  DEST.  STARTING 
WITH  CHARACTER  L2  OF  DEST.  THE  CHARACTERS  ARE  TAKEN 
FROM  THE  LEAST  SIGNIFICANT  CHARACTER  OF  THE  ELEMENTS 
OF  THE  ARRAY  SOURC,  STARTING  WITH  STANDARD  UNIT  LI. 
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10  /  Subroutl  ne 

11  Mumber  Name  Function 


!  587  187.  PARAN 

i 


589  788.  PARFM  TO  PROCESS  THE  PARAGRAPH  FORMAT  COMMANO  (PF) 

591  789.  PASS  To  7H-L  USfc/2.  I »&$ScOOK£> . 


593  790.  PGHOR 


595  791.  PGPRT 


597  792.  PLUEl 


599  793.  PMCHK 


601  794.  PNOFM  THIS  SUBROUTINE  TAKES  CARE  OF  THE  SYSTEM  COMMANO  .PRNF. 

603  795.  PPRO 


-j  5  / 
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10  /  Subroutine 

11  Number  Name  Function 

60S  *96.  PRMON 

607  *97.  PRNDX 

609  198.  PRTOC 

611  *99.  PSTRP  REMOVE  ANY  LEADING  OR  TRAILING  BLANKS  FROM  CHARS. 

612  /  RECOMPUTE  LEN. 

614  ZOO.  PULL  ptocsss  7&C  .-rfU 

616  Z01.  RACCE 

618  ZOZ.  RCINS 

62U  Z03.  RCDEL 
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10 

/ 

Subroutine 

11 

Number 

Name  Function 

622 

204. 

RCNVR 

624 

205. 

RCNV2 

626 

206. 

RCOPY 

628 

207. 

RDLIN 

TO  GET  A  LINE  OF  COMMAND  TEXT  IF  GCOOE  IS  1 

629 

/ 

AND  TO  BACKSPACE  IF  GCODE  IS  ZERO.  SO  THAT  A 

630 

/ 

SUBSEQUENT  RDLIN(l)  WOULD  RETURN  THE  SAME  LINE 

631 

/ 

RETURNED  PREVIOUSLY. 

633 

208, 

READ 

TO  READ  A  LINE. 

635 

209. 

REAOE 

TO  OBTAIN  A  COMMAND  LINE  DURING  .EX.  COMMAND. 

637 

210. 

REAOI 

639  211-  READS  TO  OBTAIN  A  COMMAND  LINE  DURING  .EXEC.  COMMAND. 

641  212.  REAUP  THIS  SUBROUTINE  RETRIEVES  CERTAIN  LINES  FROM  A  PREVIOUS  CYCLE 

643  213.  RENAM  TO  RENAME  A  DOCUMENT  AND  ALL  REFERENCES  TO  IT 

645  214.  REPO 
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APPENDIX  B:  SYSTEM  BACKUP  FUNCTIONS  AND  SUBROUTINES 


APPENDIX  C:  DATA  CONVERSION  FUNCTIONS  AND  SUBROUTINES 


COPY  F 


# 


COMMAND . CF 


CHANG 


COMMAND  .  COPY 


SUBROUTINE  FLOW  DIAGRAM 


COMMAND  DELET 


SUBROUTINE  FLOW  DIAGRAM 


COMAND  EDIT 


is 


SUBROUTINE  FLOW  DIAGRAM 


Command  EXECS  Sheet  1  of  1 


SUBROUTINE  FLOW  DIAGRAM 


Fioure  Command  FXECT  Sheet  1  of  1 


COMMAND .  FL. 


FLAG  COMMAND 


bttvi  j*'1 


COMMAND:  LIST 
PROGRAM  NAME  LIST 


C“» 


COMMAND  .  LIST . 


LIST  FLAG  COMMAND 


SUBROUTINE  FLOW  DIAGRAM 


ce 


COMMAND  LOGOF 

Figure  Command  LOGOF  Sheet 


SUBROUTINE  FLOW  DIAGRAM 


COMMAND  LOGON 

Figure  Command  LOGON  Sheet  1  of  1 


SUBROUTINE  FLOW  DIAGRAM 


COMAND  NEW 


COMMAND  .  PASS. 


NOTE:  STFMT  IS  A  COMMON  SUBROUTINE  FOR  NOFOR  {.pgnf)  AND  PNOFM  |.prnf>. 


PRINT  COMAND 


Figure  Print  Coronand  Sheet  10  of  20 


Figure  Print  Command  Sheet  15  of  20 


PRINT  COMAND 


PRINT  COMAND 


Figure  Print  Command  Sheet  19  of  20 
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CL 


Figure  PRINT  Command  Sheet  5  of  20 


i 


I 


Figure  PRINT  Cormand  Sheet  7  of  20 


COMMAND:  .prnf  (PROGRAM  NAME  IS  PNOFM) 


COMMAND .  PRNF. 


USER  COMMAND 


